list_of_packages <- c("tidyverse", "readxl", "here", "janitor", "DT")
new_packages <- list_of_packages[!(list_of_packages %in% installed.packages()[,"Package"])]
if(length(new_packages)) install.packages(new_packages)
library(tidyverse)
## ── Attaching packages ─────────────────────────────────────── tidyverse 1.3.0 ──
## ✓ ggplot2 3.3.3 ✓ purrr 0.3.4
## ✓ tibble 3.1.0 ✓ dplyr 1.0.5
## ✓ tidyr 1.1.2 ✓ stringr 1.4.0
## ✓ readr 1.4.0 ✓ forcats 0.5.1
## ── Conflicts ────────────────────────────────────────── tidyverse_conflicts() ──
## x dplyr::filter() masks stats::filter()
## x dplyr::lag() masks stats::lag()
library(readxl)
library(here)
## here() starts at /home/francisko/coding/r/planilha-banessa
library(janitor)
##
## Attaching package: 'janitor'
## The following objects are masked from 'package:stats':
##
## chisq.test, fisher.test
library(DT)
Código
(ordem <-
readxl::read_xlsx(
path = here::here("data", "Dados planilha.xlsx"),
sheet = 1
) %>%
janitor::clean_names() %>%
pull(ordem_dos_dados))
## [1] "Sobic.003G403000.1.v2.1" "Sobic.003G148500.1.v2.1"
## [3] "Sobic.002G068400.1.v2.1" "Sobic.010G179100.1.v2.1"
## [5] "Sobic.002G088000.1.v2.1" "Sobic.004G119600.1.v2.1"
## [7] "Sobic.003G338700.1.v2.1" "Sobic.003G187800.1.v2.1"
## [9] "Sobic.010G180900.1.v2.1" "Sobic.003G128700.1.v2.1"
## [11] "Sobic.003G397000.1.v2.1" "Sobic.010G070300.1.v2.1"
## [13] "Sobic.004G188700.1.v2.1" "Sobic.005G065700.1.v2.1"
## [15] "Sobic.003G033600.1.v2.1" "Sobic.002G255000.1.v2.1"
## [17] "Sobic.003G384700.1.v2.1" "Sobic.002G368700.1.v2.1"
## [19] "Sobic.003G292800.1.v2.1" "Sobic.002G083000.2.v2.1"
## [21] "Sobic.002G032900.2.v2.1" "Sobic.004G154900.2.v2.1"
## [23] "Sobic.005G033900.1.v2.1" "Sobic.004G180400.1.v2.1"
## [25] "Sobic.002G319100.1.v2.1" "Sobic.002G411000.1.v2.1"
## [27] "Sobic.004G314900.1.v2.1" "Sobic.003G112300.1.v2.1"
## [29] "Sobic.010G099300.1.v2.1" "Sobic.010G078800.1.v2.1"
## [31] "Sobic.003G064800.1.v2.1" "Sobic.010G097800.1.v2.1"
## [33] "Sobic.010G057300.1.v2.1" "Sobic.010G194300.1.v2.1"
## [35] "Sobic.002G356300.1.v2.1" "Sobic.003G320600.1.v2.1"
## [37] "Sobic.003G432600.1.v2.1" "Sobic.010G131600.1.v2.1"
## [39] "Sobic.003G024700.1.v2.1" "Sobic.004G307700.1.v2.1"
## [41] "Sobic.003G423200.1.v2.1" "Sobic.003G405300.1.v2.1"
## [43] "Sobic.004G302200.1.v2.1" "Sobic.004G105100.1.v2.1"
## [45] "Sobic.004G107000.1.v2.1" "Sobic.004G120000.1.v2.1"
## [47] "Sobic.009G250500.1.v2.1" "Sobic.004G265400.1.v2.1"
## [49] "Sobic.010G207700.1.v2.1" "Sobic.002G328300.2.v2.1"
## [51] "Sobic.004G348700.1.v2.1" "Sobic.003G302400.1.v2.1"
## [53] "Sobic.003G241000.3.v2.1" "Sobic.001G013600.1.v2.1"
## [55] "Sobic.010G082600.1.v2.1" "Sobic.004G179600.1.v2.1"
## [57] "Sobic.005G074400.1.v2.1" "Sobic.010G085000.1.v2.1"
## [59] "Sobic.004G176100.1.v2.1" "Sobic.003G293900.1.v2.1"
## [61] "Sobic.009G253800.1.v2.1" "Sobic.002G193300.2.v2.1"
## [63] "Sobic.003G419300.2.v2.1" "Sobic.003G049800.1.v2.1"
## [65] "Sobic.010G095400.1.v2.1" "Sobic.005G034600.1.v2.1"
## [67] "Sobic.010G264300.1.v2.1" "Sobic.004G006700.1.v2.1"
## [69] "Sobic.005G050600.1.v2.1" "Sobic.002G405000.1.v2.1"
## [71] "Sobic.003G424800.2.v2.1" "Sobic.002G404600.1.v2.1"
## [73] "Sobic.004G272600.1.v2.1" "Sobic.003G409600.1.v2.1"
## [75] "Sobic.004G015400.1.v2.1" "Sobic.002G213600.1.v2.1"
## [77] "Sobic.003G068000.1.v2.1" "Sobic.004G183200.1.v2.1"
## [79] "Sobic.004G259800.1.v2.1" "Sobic.002G043300.1.v2.1"
## [81] "Sobic.002G233800.1.v2.1" "Sobic.004G053400.1.v2.1"
## [83] "Sobic.002G174200.1.v2.1" "Sobic.003G286200.1.v2.1"
## [85] "Sobic.002G163500.1.v2.1"
(data <- readxl::read_xlsx(path = here::here("data", "Dados planilha.xlsx"), sheet = 2) %>%
dplyr::rename(list_6 = `List 6`) %>%
dplyr::arrange(factor(list_6, levels = ordem)))
## # A tibble: 85 x 17
## list_6 BR007_2_noAl BR007_2_A BR007_5_noAl BR007_5_Al BR012_2_noAl BR012_2_A
## <chr> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl>
## 1 Sobic.… 12.8 0.555 32.1 0.0137 56.4 5.92
## 2 Sobic.… 2.68 0.256 1.03 0 1.42 0.112
## 3 Sobic.… 0.343 0 0.378 0 1.04 0
## 4 Sobic.… 0 0 0 0 0.312 0.0294
## 5 Sobic.… 0.148 0.0187 0.0684 0.0131 0 0.0451
## 6 Sobic.… 3.21 1.06 2.77 0.0208 5.60 0.834
## 7 Sobic.… 0.296 0 0.342 0.0321 1.27 0.114
## 8 Sobic.… 0 0 0 0 2.28 0.448
## 9 Sobic.… 0.0464 0 0.0274 0.0105 0.0458 0.0175
## 10 Sobic.… 23.4 5.69 14.3 2.02 27.4 5.71
## # … with 75 more rows, and 10 more variables: BR012_5_noAl <dbl>,
## # BR012_5_Al <dbl>, SC283_2_noAl <dbl>, SC283_2_Al <dbl>, SC283_5_noAl <dbl>,
## # SC283_5_Al <dbl>, SC566_2_noAl <dbl>, SC566_2_Al <dbl>, SC566_5_noAl <dbl>,
## # SC566_5_Al <dbl>
Aqui o resultado
data %>%
DT::datatable(extensions = 'Buttons',
options = list(dom = 'Blfrtip',
buttons = c('copy', 'csv', 'excel', 'pdf', 'print'),
lengthMenu = list(c(10,25,50,-1),
c(10,25,50,"All"))))